home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Light ROM 1
/
LIGHT-ROM 1 (Amiga Library Services)(1994).iso
/
ffdisks
/
d918.lha
/
MultiPlot
/
Rexx
/
Scripts
/
readtable.mpt
< prev
next >
Wrap
Text File
|
1993-10-04
|
1KB
|
58 lines
/* This script should be started from the TOOL TYPES
STARTUP script option. It allows the input of tabulated
data in which columns represent multiple data sets */
port= 'MULTIPLOT.01'
RESULT=''
RC=0
/* Check Multiplot is running */
options results
if(~show('p',port)) then do
say "Please start Multiplot first"
exit 1
end
address value port
/* Check a DATA SELECTION WINDOW is active */
'QUERY'
if(rc ~=0) then do
say "QUERY command failed!"
exit 1
end
if(compare('DATSEL',RESULT)<6) then do
'SAY Please run script from TOOL TYPES.'
exit 1
end
/* Load filename and column numbers */
'REQ'
'PULL Enter column number for X.'
Xcolno=RESULT
'PULL Enter number for first Y column.'
Y1colno=RESULT
'PULL Enter number for last Y column.'
Y2colno=RESULT
insert('COLUMN ',insert(Xcolno, " XCOL"))
/* Load each column of Y data */
do i=Y1colno to Y2colno
insert('COLUMN ',insert(i, " YCOL"))
'CONTINUE'
'QUERY'
if(rc ~=0) then do
say "QUERY command failed!"
exit 1
end
if(compare('PLOWIN',RESULT)<6) then do
'SAY ERROR: Script terminating.'
'STOP'
exit 1
end
'ADDFILE'
end
'STOP'